**********  DRAW  ************* 5/74
	TO GET A .DMP COPY OF THIS PROGRAM LOG IN ON DRW,LCS AND TYPE
'LOA @DRW'.

THE PROGRAM ALLOWS YOU TO DRAW PICTURES WITH  THE  LIGHT  PEN  OR  BY
ENTERING SPECIFIC X,Y COORDS. AT THE KEYBOARD.

WHEN THE PROGRAM STARTS IT WILL PRINT A LIST OF MOST OF THE INITITIAL
COMMANDS.

**************  D (DRAW)  *********************

TO  BEGIN  A  DRAWING  TYPE  'D'.  
(******  ALWAYS FOLLOW COMMANDS WITH <CR>. *******)

TO HAVE A BACKGROUND REFERENCE GRID APPEAR TYPE 'D 0 1'.    ANY  TIME
'1'  IS GIVEN AS THE THIRD ITEM AT THIS POINT IN THE PROGRAM THE GRID
WILL APPEAR.  TO DELETE THE GRID TYPE '-1' IN THIS POSITION.

	THE GRID GIVES 2X2 SQUARES.  THE LONGER HORIZANTAL LINES  ARE
REFERENCES  FOR  THE  MUSICAL  STAFF.  POINT 0,0 WILL BE AT THE LOWER
LEFT-CENTER OF THE SCREEN WHERE THE CURSOR FIRST  APPEARS.   THE  1ST
NUMBER  AFTER  'D' IS  A  SIZE FACTOR.  (ZERO WILL GIVE SIZE 9.)  ANY
NON-ZERO NUMBER IN THIS POSITION WILL CHANGE THE SIZE.

WHEN DRAWING, EACH NEW POINT MAY BE SET EITHER BY MOVING  THE  CURSOR
WITH THE LIGHT PEN OR BY TYPING IN THE X AND Y POSITION.  IMMEDIATELY
AFTER A POINT IS SET IT MAY BE SHIFTED UP, DOWN,  LEFT  OR  RIGHT  BY
TYPING U n, D n, L n OR R n. (ONLY ONE OF THIS TYPE OF COMMAND MAY BE
GIVEN AT A TIME - AND ONLY IMMEDIATELY AFTER THE POINT  IS  SET.)  TO
BACK  UP  THROUGH  A  DRAWING TYPE 'B'.  (AFTER TYPING 'B', THE LEFT,
RIGHT, UP, DOWN COMMANDS WILL NOT WORK UNTIL A  NEW  POINT  HAS  BEEN
SET.)

TO EXIT FROM DRAWING MODE TYPE 'X'.
**************  S (SAVE DRAWING)  *********************
**************  A (ADD A DRAWING TO SAVED FILE)  *********************
**************  G (GET A DRAWING FROM A FILE)  *********************
**************  GM (GET A DRAWING AND ADD TO CURRENT PICTURE)  **********
**************  F (FILL THE DRAWING)  ********************
**************  FS (SMOOTH AND FILL )  ********************
**************  M (MOVE THE DRAWING)  ********************
**************  R (ROTATE THE DRAWING)  ********************
**************  DEL (DELETE A DRAWING FROM A FILE)  ******************  

**************  Q (BACKGROUND)  *********************

TYPE  'Q'  TO  PUT  UP  THE  CURRENT  DISPLAY AS BACKGROUND.  YOU MAY
CONTINUE TO ADD TO THE  DRAWING  OR  EDIT  IT  IN  ANY  WAY  BUT  THE
BACKGROUND  WILL  REMAIN  UNCHANGED.  THIS WORKS JUST LIKE THE 'GRID'
FEATURE ABOVE. USE '-1' AS ABOVE TO MAKE THE BACKGROUND GO AWAY.

**************  Z (ZERO THE DRAWING)  *********************

TYPE 'Z' TO ZERO THE DRAWING IF YOU WISH TO RETAIN THE BACKGROUND
ONLY.  THIS IS USEFUL FOR USING AN OLD DRAWING AS GUIDE FOR POSITIONING
A NEW DRAWING, ETC.

**************  E (EDIT)  *********************

PC=PLOT  PX=XGP(→PLOT.BIN)  PXS,PCS=PLOT SMOOTHED CONTURE
 PXZ,PCZ=PLOT SMOOTHED CONTURE AND FILL IT.
PXS,PCS=SMOOTH ONLY;  PXZ,PCZ=SMOOTH AND FILL
IN DRAW SECTION: J=JUMP(INVIS. VECT.)
 F=JUMP AND BEGIN FILL SECTION.  FX=EXIT AND FILL ALL.
SINGLE ITEM IS RESTRICTED TO 200 WDS. 10 ITEMS PER FILE.
 TYPE .001, .001 TO SET POS. TO 0, -20, -26 IS ORIGINAL.
 TYPE REL FOR RELATIVE VECTORS, O=ORDINARY
 TYPE SM TO SMOOTH, SMX=ERASE STRAIGHT LINES TEMPORARILY.
 TYPE 3RD NUM=1 FOR JUMPS
 IF 3RD NUM=2 -- BEGIN FILL SECTION
B=BACKUP, J=JUMP, CR=SET POINT, X=EXIT, LRUD-N
 F=FILL IT, H=GO TO HOME-NUM, N=GO TO NEXT(AFTER AN 'H')
 Z=ZERO IN ON NEARBY POINT, P=GO TO PREVIOUS, C=CLOSE THE AREA
 D=EXTEND DRAWING,  F=START FILLER OUTLINE, SM=SMOOTH IT
 TYPE 'FX' TO FILL ORIGINAL OUTLINE AND EXIT.
	IF(ZK.NE.0)NZ=-1
 WILL STAY IN "Z" MODE UNLESS NUMBER APPEARS.
 TYPE "A" OR ":" TO ALTER
 TYPE "G"=GROUP CHANGE) TO MAKE RELATIVE CHANGE STICK
 , THEN <CR>S. ANY OTHER LETTER TO ESCAPE
 n=STEP AHEAD(n STEPS) (-n GOES BACK)
 IF IN "REL" MODE TYPE "O" BEFORE USING LTPEN
N OR B=BACKUP, J=INSERT OR ALTER TO JUMP, C=ALTER JUMP TO CONT.
40	FORMAT(' POINT OK? (Y,N,B,J,F OR C) ',$)
Y=YES,N=NO,B=BACKUP,J=JUMP,F=START FILL,C=CONTINUE(NULLIFY JUMP)
NOW ASSUMES → IF NO ← POINT FOUND
 -1=GO BACK TO FILL-EDITOR


******* TO MOVE SECTIONS OF THE DRAWING WHILE IN EDIT MODE *******

WHEN A(LTER), I(NSERT), ETC. IS REQUESTED TYPE 'M n1 n2' TO MOVE 
POINTS n1 THROUGH n2.  THE NUMBERS OF THE POINTS MAY BE FOUND BY
STEPPING THROUGH WITH <CR>S.  IF n1 IS MADE NEGATIVE, THE SET OF
POINTS WILL BE ESTABLISHED AS A "MOVE ITEM". THE FIRST ONE WILL
BE NUMBER 1, THE SECOND NUMBER 2, ETC.  ONCE ESTABLISHED, THEY
MAY BE REFERRED TO BY NUMBER.  HENCE IF n2 IS ZERO ALL THE POINTS
OF ITEM n1 WILL BE MOVED.

	M -11 25
	(SETS UP MOVE ITEM 1. FOLLOW PROMPT TO MOVE IT.)

	M 1
	(NOW THE POINTS 11-25 CAN BE MOVED AGAIN.)

	M -37 42
	(THIS SETS UP ITEM 2)